home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1997
/
HAM Radio 1997.iso
/
vcls
/
sockv2
/
clntserv.dfm
/
clntserv.txt
Wrap
Text File
|
1996-04-08
|
4KB
|
165 lines
object Form1: TForm1
Left = 223
Top = 99
BorderStyle = bsDialog
Caption = 'SOCKETS Component Client/Server example program'
ClientHeight = 299
ClientWidth = 525
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
OnCreate = FormCreate
TextHeight = 16
object Label2: TLabel
Left = 256
Top = 68
Width = 30
Height = 16
Caption = 'Port:'
end
object Label5: TLabel
Left = 16
Top = 108
Width = 86
Height = 16
Caption = 'Data to send:'
end
object Label1: TLabel
Left = 24
Top = 68
Width = 78
Height = 16
Caption = 'IP Address: '
end
object Connect: TButton
Left = 8
Top = 8
Width = 81
Height = 33
Hint = 'Connect to the '#39'listening'#39' server'
Caption = 'Connect'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = ConnectClick
end
object SendData: TButton
Left = 96
Top = 8
Width = 89
Height = 33
Hint = 'Send data to the server'
Caption = 'Send Data'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = SendDataClick
end
object Listen: TButton
Left = 192
Top = 8
Width = 73
Height = 33
Hint = 'Establish a server environment and listen for client requests'
Caption = 'Listen'
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = ListenClick
end
object Close: TButton
Left = 272
Top = 8
Width = 65
Height = 33
Hint = 'Close the connection'
Caption = 'Close'
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = CloseClick
end
object CancelListen: TButton
Left = 344
Top = 8
Width = 105
Height = 33
Hint = 'Close the server connection and cancel client requests'
Caption = 'Cancel Listen'
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnClick = CancelListenClick
end
object Port: TEdit
Left = 304
Top = 64
Width = 65
Height = 25
Hint =
'Port number of '#39'listening'#39' partner to connect to or port to '#39'lis' +
'ten'#39' on'
ParentShowHint = False
ShowHint = True
TabOrder = 1
Text = '5000'
end
object Edit1: TEdit
Left = 112
Top = 104
Width = 393
Height = 25
Hint = 'Data to send to '#39'listening'#39' partner'
MaxLength = 255
ParentShowHint = False
ShowHint = True
TabOrder = 2
Text = 'The Quick Brown Fox Jumped Over The Lazy Dog 0123456789 Times'
end
object Memo1: TMemo
Left = 16
Top = 152
Width = 489
Height = 129
Hint = 'Output area'
ParentShowHint = False
ScrollBars = ssBoth
ShowHint = True
TabOrder = 3
end
object HelpButton: TButton
Left = 456
Top = 8
Width = 49
Height = 33
Caption = 'Help'
TabOrder = 9
OnClick = HelpButtonClick
end
object IPAddr: TEdit
Left = 112
Top = 64
Width = 121
Height = 24
Hint = 'IP Address (or hostname) of partner to '#39'conenct'#39' too.'
ParentShowHint = False
ShowHint = True
TabOrder = 0
Text = '127.0.0.1'
end
object Sockets1: TSockets
Left = 464
Top = 56
Width = 32
Height = 32
IPAddr = '127.0.0.1'
Port = '5000'
OnDataAvailable = Sockets1DataAvailable
OnSessionClosed = Sockets1SessionClosed
OnSessionAvailable = Sockets1SessionAvailable
OnSessionConnected = Sockets1SessionConnected
end
end